﻿<!-- #include file="mymin.asp" -->
<%Call Head2()

w "<title>回复留言</title></head><body><div class='main400'>"

dim id,p
id=request.QueryString("id")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1

dim rs,agent,name
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from 74hu_guest where ID=" & ID
rs.open rsstr,myconn,1,1
if not rs.eof then
	agent=rs("agent")
	name=rs("name")
	If IsNumeric(agent) Then
		name ="会员：<a href=""../bbs/detail.asp?sid="&sid&"&amp;id="&agent&""">"&agent&"</a><br/>"
		agent = ""
	Else
		name = "网友："&name&"<br/>"
		agent ="型号："&agent&"<br/>"
	End If
	w "标题："&nowml(rs("title"))&"<br/>"&_
		name &_
		"内容："&nowml(rs("text"))&"<br/>"&_
		"时间：" & rs("HU_time") & "<br/>"&_
		"联系：" & nowml(rs("lianxi")) & "<br/>"&_
		agent &_
		"----------<br/>"&_
		"回复："&nowml(rs("retext"))&"<br/>"&_
		"时间："&rs("retime")&"<br/>"&_
		"----------<br/>"
%>
<form method="post" action="resave.asp?sid=<%=sid%>&amp;p=<%=p%>" >
<textarea name='retext' cols='45' rows='5'><%=nowml(rs("retext"))%></textarea><br/>
<input type="submit" value="回复留言"/>
<input type="hidden" name="id" value="<%=id%>"/>
</form>
<%
Else
	w "留言已删除!<br/>"
end if
rs.close
set rs=nothing

%>----------<br/>
<a href="index.asp?sid=<%=sid%>&amp;p=<%=p%>">[留言管理]</a><%call Last2%>